www.gusucode.com > 环保时代家庭财务管理系统 EPffms v4.0 > 环保时代家庭财务管理系统 EPffms v4.0\code\eptimehome\tongji\chengyuan.asp

    <!-- #include file="../conn.asp" -->
<!-- #include file="fun.asp" -->
<% 
'****************************************************
'Code for EptimeFFMS
'Vision : v3.0
'****************************************************
nowtype=request("type")
	sql="select * from Eptime_admin where working=1 order by id"
	set rs_smallclass=conn.execute(sql)

dim total(10,2)
	n=0

	do while rs_smallclass.eof=False
	n=n+1

		login_id=rs_smallclass("id")
set count_count = server.createobject("ADODB.RecordSet")
  sql="select * from Eptime_money where id_login="&login_id
count_count.open sql,conn,1,3
nowprice3=0
nowprice4=0
do while count_count.eof=false
  if count_count("type")=0 then
    nowprice3=nowprice3+count_count("price")
  else
    nowprice4=nowprice4+count_count("price")
  end if
  count_count.movenext
Loop

if nowtype="0" Then 
     If nowprice3="0" Then
     total(n,1)=0
	 else
     total(n,1)=nowprice3
	 End if 
end If
if nowtype="1" Then
     If nowprice4="0" Then
     total(n,1)=0
	 else
     total(n,1)=nowprice4
	 End if
end If
if nowtype="0" Then 
total(n,2)=rs_smallclass("realname")+"收入"
end If
if nowtype="1" Then 
total(n,2)=rs_smallclass("realname")+"支出"
end If
	  rs_smallclass.movenext
	loop

total_no=10
  %>
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office">
<!--[if !mso]>
<style>
v\:*         { behavior: url(#default#VML) }
o\:*         { behavior: url(#default#VML) }
.shape       { behavior: url(#default#VML) }
</style>
<![endif]-->
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/admin.css" rel="stylesheet" type="text/css">
<style>
TD { FONT-SIZE: 9pt}
</style>
</HEAD>
<BODY topmargin=5 leftmargin=0 scroll=AUTO>
<!--当前导航-->
<script type="text/JavaScript">if(parent.$('admincpnav')) parent.$('admincpnav').innerHTML='首页&nbsp;&raquo;&nbsp;报表统计&nbsp;&raquo;&nbsp;收支总表';</script>
<br><div algin="right">
<strong>
家庭成员<%if nowtype="0" Then%>收入<%end If%><%if nowtype="1" Then%>支出<%end If%>表
</strong>
</div>
<%call table1(total,1,40,20,25,700,200,"A")%>	
</body>
</html>